Option Strict On
Option Explicit On
Friend Class clsTarea
	Implements _IEntidad
	'variables locales para almacenar los valores de las propiedades
	'##ModelId=4617F133036C
	Private mvarDescripcion As String 'copia local
	'##ModelId=4617F133037A
	Private mvarTareaID As Short 'copia local
	'##ModelId=4617F133038B
	Private MyOID As clsOID
	
	'##ModelId=4617F1330399
	Public Sub Constructor(ByRef ID As Short, ByRef Descrip As String)
		mvarDescripcion = Descrip
		mvarTareaID = ID
		MyOID = NewOID(CStr(ID), tipoTAREA)
		'MyOID.ID = CStr(ID)
		'MyOID.TipoObjeto = tipoTAREA
	End Sub
	'/*********************/
	'/**** Propiedades ****/
	'/*********************/
	'##ModelId=4617F13303AA
	
	'##ModelId=4617F13303BB
	Public Property TareaID() As Short
		Get
            Return mvarTareaID
		End Get
		Set(ByVal Value As Short)
			mvarTareaID = Value
		End Set
	End Property
	
	'##ModelId=4617F13303C9
	
	'##ModelId=4617F13303D9
	Public Property Descripcion() As String
		Get
            Return mvarDescripcion
		End Get
		Set(ByVal Value As String)
			mvarDescripcion = Value
		End Set
	End Property
	
	'##ModelId=4617F1340000
	
	'##ModelId=4617F134000F
	Private Property IEntidad_OID() As clsOID Implements _IEntidad.OID
		Get
            Return MyOID
		End Get
		Set(ByVal Value As clsOID)
			MyOID = Value
		End Set
	End Property
	'/*************************/
	'/**** Fin Propiedades ****/
	'/*************************/
End Class